home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of Shareware
/
Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso
/
pc
/
dos
/
networks
/
tpapi
/
nwbindry.pa1
< prev
next >
Wrap
Text File
|
1992-03-02
|
8KB
|
130 lines
{!R! FONT 15; FTMD 15; EXIT;}
{***************************************************************************}
{** Program : NWBINDRY **}
{***************************************************************************}
{** Version : 1.3 ** Started : 11/11/91 ** Ended : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : BINDERY **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** Provides Netware Bindery Services. **}
{** **}
{** **}
{** **}
{** This code is (c) 1991,1992 Tony Covelli **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
UNIT NWBINDRY;
INTERFACE
USES
netware, nwvar;
TYPE
pBinderyOBJ = ^BinderyOBJ;
BinderyOBJ = object (NetwareOBJ)
CONSTRUCTOR Init;
FUNCTION MemberBinderyCall (BinderyFunctionNumber : WORD; BinderyObjectName : ObjectNameType;
BinderyObjectType : OT_BinderyType; PropertyName : PropertyNameType;
MemberName : ObjectNameType; MemberType : OT_BinderyType) : WORD;
FUNCTION AddBinderyObjectToSet (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
PropertyName : PropertyNameType; MemberName : ObjectNameType;
MemberType : OT_BinderyType) : WORD;
FUNCTION ChangeBinderyObjectPassword (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
OldPassword, NewPassword : PasswordType) : WORD;
FUNCTION ChangeBinderyObjectSecurity (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
NewObjectSecurity : BYTE) : WORD;
FUNCTION ChangePropertySecurity (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
PropertyName : PropertyNameType; NewPropertySecurity : BYTE) : WORD;
FUNCTION CloseBindery : WORD;
FUNCTION CreateBinderyObject (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
ObjectFlags, ObjectSecurity : BYTE) : WORD;
FUNCTION CreateProperty (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
PropertyName : PropertyNameType; PropertyFlags, PropertySecurity : BYTE) : WORD;
FUNCTION DeleteBinderyObject (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType) : WORD;
FUNCTION DeleteBinderyObjectFromSet (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
PropertyName : PropertyNameType; MemberName : ObjectNameType;
MemberType : OT_BinderyType) : WORD;
FUNCTION DeleteProperty (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
PropertyName : PropertyNameType) : WORD;
FUNCTION GetBinderyAccessLevel (VAR SecurityAccessLevel : BYTE; VAR ObjectID : OT_BinderyID) : WORD;
FUNCTION GetBinderyObjectID (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
VAR ObjectID : OT_BinderyID) : WORD;
FUNCTION GetBinderyObjectName (ObjectID : OT_BinderyID; VAR BinderyObjectName : ObjectNameType;
VAR BinderyObjectType : OT_BinderyType) : WORD;
FUNCTION IsBinderyObjectInSet (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
PropertyName : PropertyNameType; MemberName : ObjectNameType;
MemberType : OT_BinderyType) : WORD;
FUNCTION OpenBindery : WORD;
FUNCTION ReadPropertyValue (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
PropertyName : PropertyNameType; SegmentNumber : WORD;
VAR PropertyValue : PropertyValueType; VAR MoreSegments,
PropertyFlags : BYTE) : WORD;
FUNCTION RenameBinderyObject (BinderyObjectName, NewBinderyObjectName : ObjectNameType;
BinderyObjectType : OT_BinderyType) : WORD;
FUNCTION ScanBinderyObject (SearchObjectName : ObjectNameType; SearchObjectType : OT_BinderyType;
VAR ObjectID : OT_BinderyID; VAR BinderyObjectName : ObjectNameType;
VAR BinderyObjectType : OT_BinderyType;
VAR ObjectHasProperties, ObjectFlags, ObjectSecurity : BYTE) : WORD;
FUNCTION ScanBinderyObjectTrusteePaths (ObjectID : OT_BinderyID; VolumeNumber : BYTE;
VAR SequenceNumber : WORD; VAR TrusteeAccessMask : WORD;
VAR TrusteePathName : PathNameType) : WORD;
FUNCTION ScanProperty (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
SearchPropertyName : PropertyNameType; VAR SequenceNumber : LONGINT;
VAR PropertyName : PropertyNameType; VAR PropertyFlags, PropertySecurity,
PropertyHasValue, MoreProperties : BYTE) : WORD;
FUNCTION VerifyBinderyObjectPassword (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
Password : PasswordType) : WORD;
FUNCTION WritePropertyValue (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
PropertyName : PropertyNameType; SegmentNumber : WORD;
PropertyValue : PropertyValueType; MoreSegments : BYTE) : WORD;
DESTRUCTOR Done; VIRTUAL;
END;